5 POKE788,52:PRINT"[147]"
10 PRINT"            FARBTEST     / TC   "
15 PRINT"  DIESES PROGRAMM ERMOEGLICHT ES DIR,     FESTZUSTELLEN, OB HINTER";
20 PRINT"GRUND- UND":PRINT"  SCHRIFTFARBE ZUSAMMENPASSEN.":PRINT"  ZUM AENDERN DER";
25 PRINT" HINTERGRUNDFARBE":PRINT"  BENUTZT DU DIE TASTEN   F1 UND F2."
30 PRINT"  ZUM AENDERN DER SCHRIFTFARBE":PRINT"  DIE TASTEN              F3 UND";
35 PRINT" F4.":PRINT"  DIE RAHMENFARBE KANNST DU MIT":PRINT"                        ";
40 PRINT"  F5 UND F6":PRINT"  EINSTELLEN."
45 PRINT"  HAST DU EINEN DRUCKER ANGESCHLOSSEN     (UND EINGESCHALTET...!),"
50 PRINT"  SO KANNST DU GEEIGNETE FARBZUSAMMEN-    STELLUNGEN AUCH DRUCKEN!";
55 PRINT"  (=  D )":PRINT"              [158]ENDE = E":POKE53265,27
60 GETA$:IFA$=""THEN60
65 IFA$=CHR$(133)THENA=A+1:IFA>15THENA=0
70 IFA$=CHR$(137)THENA=A-1:IFA<0THENA=15
75 IFA$=CHR$(134)THENB=B+1:IFB>15THENB=0
80 IFA$=CHR$(138)THENB=B-1:IFB<0THENB=15
85 IFA$=CHR$(135)THENC=C+1:IFC>15THENC=0
90 IFA$=CHR$(139)THENC=C-1:IFC<0THENC=15
95 IFA$="E"THENPRINT"[147]":POKE646,B:GOTO110
100 IFA$="D"THENOPEN4,4,0:CMD4:GOTO115
105 POKE53265,11:POKE53281,A:POKE53280,C:POKE646,B
110 PRINT" ";
115 IFA$="D"ANDA=BTHENPRINT#4:CLOSE4:PRINT"[147]":GOTO10
120 PRINT"SCREEN:";:IFA<10THENPRINT" ";
125 PRINTA;
130 PRINT"  SCHRIFT:";:IFB<10THENPRINT" ";
135 PRINTB;
140 PRINT"  RAHMEN:";:IFC<10THENPRINT" ";
145 PRINTC:IFA$="E"THENPRINT"RUN":END
150 IFA$="D"THENA$="":PRINT#4:CLOSE4:GOTO60
155 GOTO10